﻿Public Class FeuerkrafttabelleFernkampf120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 120
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf100
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 100
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 150
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf_See_120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 120
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Schiff.ToString.ToUpper Then
            Return 120
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Transport.ToString.ToUpper Then
            Return 120
        Else
            Return 100
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf_See_110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 110
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Schiff.ToString.ToUpper Then
            Return 110
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Transport.ToString.ToUpper Then
            Return 110
        Else
            Return 100
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf_See_130
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 130
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Schiff.ToString.ToUpper Then
            Return 130
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Transport.ToString.ToUpper Then
            Return 130
        Else
            Return 100
        End If
    End Function
End Class
Public Class FeuerkrafttabelleFernkampf_See_140
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        If E.MaximaleReichweite > 1 Then
            Return 140
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Schiff.ToString.ToUpper Then
            Return 140
        ElseIf E.Bewegungsart.ToUpper = MovementSorts.Transport.ToString.ToUpper Then
            Return 140
        Else
            Return 100
        End If
    End Function
End Class